10 REM COPYRIGHT 1990 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 ONAGOTO70,80
30 POKE53280,6:POKE53281,6:PRINT"[147]":POKE53269,255:FORT=1TO100:NEXT:POKE53269,0
40 PRINTTAB(11)"[154]LOADING PLAYFIELDS"
50 PRINTTAB(11)"ONE MOMENT PLEASE..."
60 A=1:LOAD "PLAYFIELDS.OBJ",8,1
70 A=2:LOAD "PLAYSPRITES",8,1
80 SYS49854,255,255,255,255,15,11,12:SYS50564,1
90 REM GRATING/BARS/FLAG DEMO
100 POKE49237,11:POKE53280,0:POKE53281,0
110 PRINT"[147]"TAB(11)"P L A Y F I E L D S"
120 FORT=1TO4:PRINTTAB(6)"             [154]                ":NEXT
130 PRINTTAB(6)"             [154]                "
140 PRINTTAB(6)"[154]                             "
150 PRINTTAB(6)"[154]                             "
160 PRINTTAB(6)"[154]                             "
170 PRINTTAB(6)"             [154]                "
180 FORT=1TO4:PRINTTAB(6)"             [154]                ":NEXT
190 PRINTTAB(4)"COPYRIGHT 1990 COMPUTE! PUB.,INC."
200 PRINTTAB(11)"ALL RIGHTS RESERVED"
210 SYS49854,254,255,255,255,15,11,12:SYS49940,1:SYS49969,2
220 FORT=1TO2
230 SYS49643,0:SYS49931:SYS49643,3:SYS49931:NEXT
240 SYS49940,0:SYS49969,1
250 SYS49931:SYS49643,4:SYS49931:SYS49643,2
260 SYS49931:SYS49643,1:SYS49931:SYS49643,5
270 SYS49854,253,0,255,255,15,11,12:SYS49940,1:SYS49969,2
280 SYS49643,4
290 POKE53264,192:SL=164:GOSUB650:FORDL=1TO50:NEXT
300 POKE53264,192:SL=21:GOSUB650:FORDL=1TO25
310 POKE53264,192:SL=212:GOSUB650:FORDL=1TO35
320 SYS49854,253,0,255,255,15,11,12
330 SYS49643,2:PRINTTAB(8)"[154]PRESS <SPACE> TO CONTINUE":SYS49791,1
340 SYS49643,2:SYS49854,255,255,255,255,15,11,12:SYS49940,0:SYS49969,1
350 SYS49643,1
360 REM GRANITE DEMO
370 PRINT"":GOSUB600:SYS49643,5:SYS49931:SYS49643,3:SYS49931:SYS49643,0
380 GOSUB640:SYS49940,1:SYS49969,2:SYS49931:SYS49643,4
390 SYS49791,0:POKE56321,255
400 IFPEEK(56321)<>255THEN400
410 FORT=26TO25STEP-1:POKE49242,T:NEXT
420 FORT=25TO32:POKE49242,T:NEXT:FORT=32TO25STEP-1:POKE49242,T:NEXT
430 IFPEEK(56321)<>239THEN420
440 SYS49791,1
450 FORT=1TO2:SYS50564,1:SYS49931:GOSUB600:GOSUB640:SYS49931:SYS50564,0
460 SYS49931:GOSUB600:GOSUB640:SYS49931:NEXT:SYS50564,1
470 SYS49931:PRINT"[154]":GOSUB600:GOSUB640
480 SYS49643,5:SYS50564,0:SYS49969,2:SYS49643,1
490 REM ANIMATED FLAG DEMO
500 SYS49854,255,255,255,255,15,11,12:SYS49940,1:SYS49969,2
510 PRINT"[147]"TAB(8)"P L A Y F I E L D   F L A G"
520 FORT=1TO7:PRINTTAB(15)"             ":NEXT
530 FORT=1TO5:PRINTTAB(14)"             ":NEXT
540 FORT=1TO8:PRINTTAB(13)"             ":NEXT
550 PRINTTAB(12)"PRESS <SPACE>"
560 SYS49931:SYS50028
570 SYS49854,253,0,255,255,15,11,12:SYS50028:SYS49931:SYS50028
580 PRINT"[147]":SYS49643,5:SYS50621
590 SYS49854,255,255,255,255,15,11,12:SYS49643,4:GOTO500
600 PRINT"[147]"TAB(11)"P L A Y F I E L D S"
610 PRINTTAB(8)"THE EASY WAY TO SMOOTHLY"
620 PRINTTAB(5)"ANIMATE LARGE GRAPHICS AREAS FOR"
630 PRINTTAB(8)"PROFESSIONAL VIDEO EFFECTS.":RETURN
640 PRINTTAB(12)"PRESS <SPACE> FOR":PRINTTAB(14)"MORE EXAMPLES":RETURN
650 S=54296:A=15:B=0
660 POKE53248,SL:POKE53248+21,255:POKE2040,252:POKE53248+39,6:GOSUB710
670 POKE2040,251:POKE53248+39,14:GOSUB710
680 POKE2040,250:POKE53248+39,3:GOSUB710
690 POKE2040,249:POKE53248+39,1:POKE53248+21,254
700 POKE53248,0:RETURN
710 POKES,A:POKE54296,0:POKE54296,15:POKES,B:RETURN